THUNK is a function of no arguments which is called to initialise
the contents of BUFFER. BUFFER will be erased before THUNK is called unless
NOERASE is non-nil. THUNK will be called with standard-output bound to
the buffer specified by BUFFER
After THUNK has been called, this function \"electrically\" pops up a window
in which BUFFER is displayed and allows the user to scroll through that buffer
in electric-help-mode.
When the user exits (with electric-help-exit, or otherwise) the help
buffer's window disappears (ie we use save-window-excursion)
BUFFER is put into default-major-mode (or fundamental-mode) when we exit"])
(fset 'electric-help-command-loop #[nil "└┴ìç" [exit (byte-code "└d!½Ö┴┬!ê├─┼ !ë!╟=½ê╚╔╩╦\"ê╚ëëë╠═!╬=¡ô╠╧!╨=¡î╠╤!╥=¡à╠╙!╥=┘╩┌╦#-ç" [pos-visible-in-window-p message "<<< Press Space to bury the help buffer >>>" event-to-character next-command-event allocate-event unread-command-event 32 nil throw exit t key-binding " " scroll-up "" scroll-down "Q" electric-help-exit "q" standard neither both down up Electric-command-loop #[nil "└e!└d!ë½ô ½É½â─¬─«┴╞╟!ë¬║\n½Æ½â╚¬▒ «¡╞╩!ë ¬Ñ ½Æ½â╦¬£«ÿ╞═!ë¬É½â╬¬è«å╞╨!ë*ç" [pos-visible-in-window-p max min standard "Press Q to exit " neither substitute-command-keys "Press \\[scroll-up] to exit " "Press SPC to scroll, Q to exit " up "Press \\[scroll-up] to scroll; \\[electric-help-exit] to exit " "Press DEL to scroll back, Q to exit " down "Press \\[scroll-down] to scroll back, \\[scroll-up] to exit " "Press SPC to scroll, DEL to scroll back, Q to exit " both "Press \\[scroll-up] to scroll, \\[scroll-down] to scroll back, \\[electric-help-exit] to exit "] 4]] 6)] 2])